home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / page_monster / pagemonsterv1.0_3.dms / pagemonsterv1.0_3.adf / SCRIPTS / ED.REXX6 < prev    next >
Text File  |  1978-03-24  |  549b  |  103 lines
  1. /* PAGEMONSTER AREXX HTML EXTRACTION SCRIPT */
  2. call open(place, 'env:RSCRIPT')
  3. wher = readln(place)
  4.  
  5. lng = LENGTH(wher)
  6. x = lng - 2
  7. PATHNAME = SUBSTR( wher , 2 , x )
  8. file = SUBSTR( wher , 2 , x )
  9.  
  10. parse var file ':' temp
  11. if temp="" then temp=x
  12. do forever
  13. parse var temp FileName '/' temp
  14. if temp ="" then break
  15. end
  16. Fname = FileName
  17.  
  18. PATHNAME2 = insert("ram:html/propics/new" , FName)
  19. address 'Ed'
  20.  
  21. 'T'
  22.  
  23. 'E' '"LOADREXXFILE"'PATHNAME
  24.  
  25. 'T'
  26.  
  27. 'E' '"SAVEREXXFILE"'PATHNAME2 
  28.  
  29. 'X' 
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.